home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8702b.d64 / film maker100x80 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  729b  |  20 lines
  1. 4 IFA=2THENGOSUB90:SYS828:CLOSE2:GOTO70
  2. 5 A=A+1:IFA=1THENLOAD"MPMLOADER",8,8
  3. 7 INPUT"[147]DISKETTE MIT LORES-BILDERN EINLEGEN";A$
  4. 10 T=12300
  5. 20 READA$:IFA$="*"THEN60
  6. 30 POKE252,INT(T/256):POKE251,T-PEEK(252)*256:SYS828,A$
  7. 40 T=T+1000:GOTO20
  8. 60 INPUT"PROGRAMMDISK EINLEGEN";A$
  9. 61 PRINT""
  10. 62 POKE251,12:POKE252,48:POKE254,INT(T/256)
  11. 65 POKE253,T-PEEK(254)*256:LOAD"MPSAVER",8,8
  12. 70 A=5:PRINT"[147]FILM IST BEREIT
  13. 80 [153]"VERGESSEN SIE NICHT DAS FILE 'MPVIEWER' MIT LOAD UND SAVE AUF DIE
  14. 85 PRINT"FILMDISK ZU SPEICHERN !!!":END
  15. 90 INPUT"[147]BITTE FILMDISK EINLEGEN";A$:PRINT"BITTE NAMEN ANGEBEN"
  16. 95 RETURN
  17. 100 DATA 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20
  18. 110 DATA 21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40
  19. 120 DATA41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,*
  20.